home *** CD-ROM | disk | FTP | other *** search
/ CD ROM Paradise Collection 4 / CD ROM Paradise Collection 4 1995 Nov.iso / program / swags_z.zip / TIMING.SWG / 0012_Hi-Res Timer.pas < prev    next >
Pascal/Delphi Source File  |  1993-09-26  |  670b  |  20 lines
  1. {*****************************************************************************
  2.  * Function ...... Timer
  3.  * Purpose ....... Returns the number of seconds since midnight
  4.  * Parameters .... None
  5.  * Returns ....... Number of seconds since midnight to the 100th decimial place
  6.  * Notes ......... None
  7.  * Author ........ Martin Richardson
  8.  * Date .......... May 13, 1992
  9.  *****************************************************************************}
  10. FUNCTION Timer : REAL;
  11. VAR hour,
  12.     minute,
  13.     second,
  14.     sec100  : WORD;
  15. BEGIN
  16.      GETTIME(hour, minute, second, sec100);
  17.      Timer := ((hour*60*60) + (minute*60) + (second) + (sec100 * 0.01))
  18. END;
  19.  
  20.